home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / e / amigae33a.lha / E_v3.3a / Src.lha / Src / Pd / oomodules / library.e < prev    next >
Text File  |  1995-02-05  |  408b  |  22 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. OBJECT library
  5.   base
  6. ENDOBJECT
  7.  
  8. PROC open(name,version=NIL,dummy=NIL) OF library
  9. /*
  10.  * Just opens a library and fills the entries. the dummy argument is needed for
  11.  * opne OF device uses three vars
  12.  */
  13.  
  14. DEF base
  15.   IF(base := OpenLibrary(name,version))=NIL THEN Raise("LIB")
  16.   self.base := base
  17. ENDPROC base
  18.  
  19. PROC close() OF library
  20.   IF self.base THEN CloseLibrary(self.base)
  21. ENDPROC
  22.